with Wagons.Sdj; use Wagons.Sdj;

procedure Test_Wagons is
   W: Wagon_sdj := Saisir;
begin
   Afficher(W);
end Test_Wagons;


